home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_157_importPictRez.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  1.3 KB  |  28 lines
  1.  global colorauthoringpath
  2.   global importwhere
  3.   if the short name of this stack is "Resgenie‚Ñ¢" then
  4.     showdialog 1, "503","Please use Resedit to edit these files. Sorry, but it's for your own good!" ,"True"
  5.     do restext ("TEXT", "Exit", colorauthoringpath)
  6.   end if
  7.   put the long name of this stack into importwhere
  8.   delete word 1 of importwhere
  9.   delete char 1 of importwhere
  10.   delete last char of importwhere
  11.   ask "What do you want to name your new PICT resource?" with "New"
  12.   if it is empty then do restext("TEXT", "Exit", colorauthoringpath)
  13.   put it into holdPICTName
  14.   put Fullreslist ("W=" & importwhere) into resData -- This allows a check for duplicate names
  15.   get  offset (holdPictName, resData)  -- of resources since FileToPICTRes does not
  16.   if it is not "0" then
  17.     ask "There is already a resource named" && quote & holdPictName & quote &&¬¨
  18.     "in this stack. Do you want to rename this picture before importing it?"¬¨
  19.     with holdPICTName
  20.     if it is empty then do restext("TEXT", "Exit", colorauthoringpath)
  21.     else
  22.       put it into holdPICTName
  23.     end if
  24.   end if
  25.   get FileToPICTRes ( importwhere,holdPictname ,PICT)
  26.   if the result is not empty then answer the result
  27.   if it is "Cancel" then do restext("TEXT", "Exit", colorauthoringpath)
  28.   do restext("TEXT", "importPictureList", colorauthoringpath)